home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
prolog
/
ai.prl
/
opnprlg1.hqx
/
Open Prolog
/
Open Prolog.rsrc
/
CODE_35_ErrMgr.txt
< prev
next >
Wrap
Text File
|
1993-04-15
|
45KB
|
840 lines
# near model CODE resource
# entry label at 0x0000
entry:
fn00000000:
00000000 206F 0004 movea.l A0, [A7 + 0x4]
00000004 2F02 move.l -[A7], D2
00000006 A000 trap Open/PBHOpen/HOpen
00000008 241F move.l D2, [A7]+
0000000A 4E75 rts
fn0000000C:
0000000C 206F 0004 movea.l A0, [A7 + 0x4]
00000010 2F02 move.l -[A7], D2
00000012 A002 trap Read
00000014 241F move.l D2, [A7]+
00000016 4E75 rts
fn00000018:
00000018 206F 0004 movea.l A0, [A7 + 0x4]
0000001C 2F02 move.l -[A7], D2
0000001E A001 trap Close
00000020 241F move.l D2, [A7]+
00000022 4E75 rts
fn00000024:
00000024 4E56 FFFC link A6, -0x0004
00000028 48E7 0018 movem.l -[A7], A3,A4
0000002C 286E 000C movea.l A4, [A6 + 0xC]
00000030 534C subq.w A4, 1
label00000032:
00000032 524C addq.w A4, 1
00000034 4A14 tst.b [A4]
00000036 66FA bne -0x4 /* 00000032 */
00000038 41EE 000C lea.l A0, [A6 + 0xC]
0000003C 5848 addq.w A0, 4
0000003E 2D48 FFFC move.l [A6 - 0x4], A0
00000042 6018 bra +0x1A /* 0000005C */
label00000044:
00000044 534C subq.w A4, 1
00000046 6006 bra +0x8 /* 0000004E */
label00000048:
00000048 206E 0008 movea.l A0, [A6 + 0x8]
0000004C 5350 subq.w [A0], 1
label0000004E:
0000004E 206E 0008 movea.l A0, [A6 + 0x8]
00000052 4A50 tst.w [A0]
00000054 6706 beq +0x8 /* 0000005C */
00000056 524C addq.w A4, 1
00000058 189B move.b [A4], [A3]+
0000005A 66EC bne -0x12 /* 00000048 */
label0000005C:
0000005C 206E 0008 movea.l A0, [A6 + 0x8]
00000060 4A50 tst.w [A0]
00000062 6710 beq +0x12 /* 00000074 */
00000064 58AE FFFC addq.l [A6 - 0x4], 4
00000068 206E FFFC movea.l A0, [A6 - 0x4]
0000006C 2668 FFFC movea.l A3, [A0 - 0x4]
00000070 200B move.l D0, A3
00000072 66D0 bne -0x2E /* 00000044 */
label00000074:
00000074 202E 000C move.l D0, [A6 + 0xC]
00000078 4CEE 1800 FFF4 movem.l A4,A3, [A6 - 0xC]
0000007E 4E5E unlink A6
00000080 4E75 rts
fn00000082:
00000082 4E56 FFFC link A6, -0x0004
00000086 48E7 0118 movem.l -[A7], D7,A3,A4
0000008A 266E 000C movea.l A3, [A6 + 0xC]
0000008E 200B move.l D0, A3
00000090 674A beq +0x4C /* 000000DC */
00000092 4A13 tst.b [A3]
00000094 6746 beq +0x48 /* 000000DC */
00000096 286E 0008 movea.l A4, [A6 + 0x8]
0000009A 4A2D FDA2 tst.b [A5 - 0x25E]
0000009E 6716 beq +0x18 /* 000000B6 */
000000A0 1013 move.b D0, [A3]
000000A2 5200 addq.b D0, 1
000000A4 1E00 move.b D7, D0
000000A6 6002 bra +0x4 /* 000000AA */
label000000A8:
000000A8 18DB move.b [A4]+, [A3]+
label000000AA:
000000AA 1007 move.b D0, D7
000000AC 5307 subq.b D7, 1
000000AE 4A00 tst.b D0
000000B0 66F6 bne -0x8 /* 000000A8 */
000000B2 4214 clr.b [A4]
000000B4 602C bra +0x2E /* 000000E2 */
label000000B6:
000000B6 2D4B FFFC move.l [A6 - 0x4], A3
label000000BA:
000000BA 202E FFFC move.l D0, [A6 - 0x4]
000000BE 52AE FFFC addq.l [A6 - 0x4], 1
000000C2 2040 movea.l A0, D0
000000C4 524C addq.w A4, 1
000000C6 1890 move.b [A4], [A0]
000000C8 66F0 bne -0xE /* 000000BA */
000000CA 200B move.l D0, A3
000000CC 322E FFFE move.w D1, [A6 - 0x2]
000000D0 9240 sub.w D1, D0
000000D2 5301 subq.b D1, 1
000000D4 206E 0008 movea.l A0, [A6 + 0x8]
000000D8 1081 move.b [A0], D1
000000DA 6006 bra +0x8 /* 000000E2 */
label000000DC:
000000DC 206E 0008 movea.l A0, [A6 + 0x8]
000000E0 4210 clr.b [A0]
label000000E2:
000000E2 202E 0008 move.l D0, [A6 + 0x8]
000000E6 4CEE 1880 FFF0 movem.l A4,A3,D7, [A6 - 0x10]
000000EC 4E5E unlink A6
000000EE 4E75 rts
fn000000F0:
000000F0 4E56 0000 link A6, 0
000000F4 7000 moveq.l D0, 0x00
000000F6 302D F830 move.w D0, [A5 - 0x7D0]
000000FA 7210 moveq.l D1, 0x10
000000FC C240 and.w D1, D0
000000FE 6704 beq +0x6 /* 00000104 */
00000100 4EBA 00C8 jsr [PC + 0xC8 /* 000001CA */]
label00000104:
00000104 4A2E 0013 tst.b [A6 + 0x13]
00000108 6706 beq +0x8 /* 00000110 */
0000010A 006D 0008 F722 ori.w [A5 - 0x8DE], 0x8
label00000110:
00000110 006D 0010 F830 ori.w [A5 - 0x7D0], 0x10
00000116 006D 0010 F722 ori.w [A5 - 0x8DE], 0x10
0000011C 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000120 486D F730 pea.l [A5 - 0x8D0]
00000124 4EBA FF5C jsr [PC - 0xA4 /* 00000082 */]
00000128 2B40 F982 move.l [A5 - 0x67E], D0
0000012C 7000 moveq.l D0, 0x00
0000012E 2B40 F97C move.l [A5 - 0x684], D0
00000132 426D F986 clr.w [A5 - 0x67A]
00000136 422D F98A clr.b [A5 - 0x676]
0000013A 1B7C 0001 F98B move.b [A5 - 0x675], 0x1
00000140 2B40 F98C move.l [A5 - 0x674], D0
00000144 41ED F9A2 lea.l A0, [A5 - 0x65E]
00000148 2B48 F990 move.l [A5 - 0x670], A0
0000014C 2B7C 0000 0400 F994 move.l [A5 - 0x66C], 0x400
00000154 3B7C 0001 F99C move.w [A5 - 0x664], 0x1
0000015A 2F2E 000C move.l -[A7], [A6 + 0xC]
0000015E 486D F83E pea.l [A5 - 0x7C2]
00000162 4EBA FF1E jsr [PC - 0xE2 /* 00000082 */]
00000166 2B40 F950 move.l [A5 - 0x6B0], D0
0000016A 7000 moveq.l D0, 0x00
0000016C 2B40 F94A move.l [A5 - 0x6B6], D0
00000170 426D F954 clr.w [A5 - 0x6AC]
00000174 422D F958 clr.b [A5 - 0x6A8]
00000178 1B7C 0001 F959 move.b [A5 - 0x6A7], 0x1
0000017E 2B40 F95A move.l [A5 - 0x6A6], D0
00000182 41ED F9A2 lea.l A0, [A5 - 0x65E]
00000186 2B48 F95E move.l [A5 - 0x6A2], A0
0000018A 2B7C 0000 0400 F962 move.l [A5 - 0x69E], 0x400
00000192 3B7C 0001 F96A move.w [A5 - 0x696], 0x1
00000198 4E5E unlink A6
0000019A 4E75 rts
export_476:
0000019C 4E56 0000 link A6, 0
000001A0 7001 moveq.l D0, 0x01
000001A2 2B40 F71E move.l [A5 - 0x8E2], D0
000001A6 1B7C 0001 FDA2 move.b [A5 - 0x25E], 0x1
000001AC 7000 moveq.l D0, 0x00
000001AE 102E 0008 move.b D0, [A6 + 0x8]
000001B2 2F00 move.l -[A7], D0
000001B4 2F2E 000A move.l -[A7], [A6 + 0xA]
000001B8 2F2E 000E move.l -[A7], [A6 + 0xE]
000001BC 4EBA FF32 jsr [PC - 0xCE /* 000000F0 */]
000001C0 4E5E unlink A6
000001C2 205F movea.l A0, [A7]+
000001C4 4FEF 000A lea.l A7, [A7 + 0xA]
000001C8 4ED0 jmp [A0]
fn000001CA:
000001CA 4E56 0000 link A6, 0
000001CE 7000 moveq.l D0, 0x00
000001D0 302D F722 move.w D0, [A5 - 0x8DE]
000001D4 7202 moveq.l D1, 0x02
000001D6 C240 and.w D1, D0
000001D8 670A beq +0xC /* 000001E4 */
000001DA 2F2D F724 move.l -[A7], [A5 - 0x8DC]
000001DE 4EBA FE38 jsr [PC - 0x1C8 /* 00000018 */]
000001E2 584F addq.w A7, 4
label000001E4:
000001E4 7000 moveq.l D0, 0x00
000001E6 302D F830 move.w D0, [A5 - 0x7D0]
000001EA 7202 moveq.l D1, 0x02
000001EC C240 and.w D1, D0
000001EE 670A beq +0xC /* 000001FA */
000001F0 2F2D F832 move.l -[A7], [A5 - 0x7CE]
000001F4 4EBA FE22 jsr [PC - 0x1DE /* 00000018 */]
000001F8 584F addq.w A7, 4
label000001FA:
000001FA 3B7C 0009 F830 move.w [A5 - 0x7D0], 0x9 /* '\t' */
00000200 426D F722 clr.w [A5 - 0x8DE]
00000204 4E5E unlink A6
00000206 4E75 rts
fn00000208:
00000208 4E56 FFEA link A6, -0x0016
0000020C 48E7 0018 movem.l -[A7], A3,A4
00000210 47ED F700 lea.l A3, [A5 - 0x900]
00000214 49EE FFEA lea.l A4, [A6 - 0x16]
00000218 3D7C 001E FFFE move.w [A6 - 0x2], 0x1E
0000021E 2F0C move.l -[A7], A4
00000220 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000224 4EAD 04AA jsr [A5 + 0x4AA]
00000228 4213 clr.b [A3]
0000022A 7000 moveq.l D0, 0x00
0000022C 2F00 move.l -[A7], D0
0000022E 2F0C move.l -[A7], A4
00000230 4A2E 000F tst.b [A6 + 0xF]
00000234 6708 beq +0xA /* 0000023E */
00000236 41ED F63E lea.l A0, [A5 - 0x9C2]
0000023A 2208 move.l D1, A0
0000023C 6006 bra +0x8 /* 00000244 */
label0000023E:
0000023E 41ED F648 lea.l A0, [A5 - 0x9B8]
00000242 2208 move.l D1, A0
label00000244:
00000244 2F01 move.l -[A7], D1
00000246 2F0B move.l -[A7], A3
00000248 486E FFFE pea.l [A6 - 0x2]
0000024C 4EBA FDD6 jsr [PC - 0x22A /* 00000024 */]
00000250 4FEF 001C lea.l A7, [A7 + 0x1C]
00000254 4CEE 1800 FFE2 movem.l A4,A3, [A6 - 0x1E]
0000025A 4E5E unlink A6
0000025C 4E75 rts
fn0000025E:
0000025E 4E56 0000 link A6, 0
00000262 7000 moveq.l D0, 0x00
00000264 2F00 move.l -[A7], D0
00000266 2F2E 0014 move.l -[A7], [A6 + 0x14]
0000026A 486D F650 pea.l [A5 - 0x9B0]
0000026E 7000 moveq.l D0, 0x00
00000270 102E 001B move.b D0, [A6 + 0x1B]
00000274 2F00 move.l -[A7], D0
00000276 302E 0012 move.w D0, [A6 + 0x12]
0000027A 48C0 ext.l D0
0000027C 2F00 move.l -[A7], D0
0000027E 4EBA FF88 jsr [PC - 0x78 /* 00000208 */]
00000282 508F addq.l A7, 8
00000284 2F00 move.l -[A7], D0
00000286 2F2E 000C move.l -[A7], [A6 + 0xC]
0000028A 2F2E 0008 move.l -[A7], [A6 + 0x8]
0000028E 4EBA FD94 jsr [PC - 0x26C /* 00000024 */]
00000292 4E5E unlink A6
00000294 4E75 rts
fn00000296:
00000296 4E56 0000 link A6, 0
0000029A 48E7 0318 movem.l -[A7], D6,D7,A3,A4
0000029E 3C2E 0012 move.w D6, [A6 + 0x12]
000002A2 266E 0008 movea.l A3, [A6 + 0x8]
000002A6 286E 0014 movea.l A4, [A6 + 0x14]
000002AA 2F2C 0002 move.l -[A7], [A4 + 0x2]
000002AE 4EBA FD5C jsr [PC - 0x2A4 /* 0000000C */]
000002B2 3E00 move.w D7, D0
000002B4 0C47 FFD9 cmpi.w D7, 0xFFD9
000002B8 584F addq.w A7, 4
000002BA 6632 bne +0x34 /* 000002EE */
000002BC 206C 0002 movea.l A0, [A4 + 0x2]
000002C0 4AA8 0028 tst.l [A0 + 0x28]
000002C4 6654 bne +0x56 /* 0000031A */
000002C6 7000 moveq.l D0, 0x00
000002C8 3014 move.w D0, [A4]
000002CA 7201 moveq.l D1, 0x01
000002CC C240 and.w D1, D0
000002CE 7000 moveq.l D0, 0x00
000002D0 3001 move.w D0, D1
000002D2 2F00 move.l -[A7], D0
000002D4 486D F652 pea.l [A5 - 0x9AE]
000002D8 48C6 ext.l D6
000002DA 2F06 move.l -[A7], D6
000002DC 2F2E 000C move.l -[A7], [A6 + 0xC]
000002E0 2F0B move.l -[A7], A3
000002E2 4EBA FF7A jsr [PC - 0x86 /* 0000025E */]
000002E6 7000 moveq.l D0, 0x00
000002E8 4FEF 0014 lea.l A7, [A7 + 0x14]
000002EC 602E bra +0x30 /* 0000031C */
label000002EE:
000002EE 4A47 tst.w D7
000002F0 6728 beq +0x2A /* 0000031A */
000002F2 7000 moveq.l D0, 0x00
000002F4 3014 move.w D0, [A4]
000002F6 7201 moveq.l D1, 0x01
000002F8 C240 and.w D1, D0
000002FA 7000 moveq.l D0, 0x00
000002FC 3001 move.w D0, D1
000002FE 2F00 move.l -[A7], D0
00000300 486D F674 pea.l [A5 - 0x98C]
00000304 48C6 ext.l D6
00000306 2F06 move.l -[A7], D6
00000308 2F2E 000C move.l -[A7], [A6 + 0xC]
0000030C 2F0B move.l -[A7], A3
0000030E 4EBA FF4E jsr [PC - 0xB2 /* 0000025E */]
00000312 7000 moveq.l D0, 0x00
00000314 4FEF 0014 lea.l A7, [A7 + 0x14]
00000318 6002 bra +0x4 /* 0000031C */
label0000031A:
0000031A 7001 moveq.l D0, 0x01
label0000031C:
0000031C 4CEE 18C0 FFF0 movem.l A4,A3,D7,D6, [A6 - 0x10]
00000322 4E5E unlink A6
00000324 4E75 rts
fn00000326:
00000326 4E56 FFFC link A6, -0x0004
0000032A 48E7 0318 movem.l -[A7], D6,D7,A3,A4
0000032E 266E 0014 movea.l A3, [A6 + 0x14]
00000332 3E2E 0012 move.w D7, [A6 + 0x12]
00000336 206B 0002 movea.l A0, [A3 + 0x2]
0000033A 7000 moveq.l D0, 0x00
0000033C 2140 002E move.l [A0 + 0x2E], D0
00000340 2F0B move.l -[A7], A3
00000342 48C7 ext.l D7
00000344 2F07 move.l -[A7], D7
00000346 2F2E 000C move.l -[A7], [A6 + 0xC]
0000034A 2F2E 0008 move.l -[A7], [A6 + 0x8]
0000034E 4EBA FF46 jsr [PC - 0xBA /* 00000296 */]
00000352 4A00 tst.b D0
00000354 4FEF 0010 lea.l A7, [A7 + 0x10]
00000358 6606 bne +0x8 /* 00000360 */
0000035A 7000 moveq.l D0, 0x00
0000035C 6000 00DC bra +0xDE /* 0000043A */
label00000360:
00000360 3C2D F9A2 move.w D6, [A5 - 0x65E]
00000364 6E06 bgt +0x8 /* 0000036C */
00000366 7000 moveq.l D0, 0x00
00000368 6000 00D0 bra +0xD2 /* 0000043A */
label0000036C:
0000036C 49ED F9A6 lea.l A4, [A5 - 0x65A]
00000370 0C46 00FF cmpi.w D6, 0xFF
00000374 6C04 bge +0x6 /* 0000037A */
00000376 3006 move.w D0, D6
00000378 6004 bra +0x6 /* 0000037E */
label0000037A:
0000037A 303C 00FF move.w D0, 0xFF
label0000037E:
0000037E 48C0 ext.l D0
00000380 E580 asl D0, 2
00000382 D08C add.l D0, A4
00000384 5980 subq.l D0, 4
00000386 2D40 FFFC move.l [A6 - 0x4], D0
0000038A 0446 00FF subi.w D6, 0xFF
label0000038E:
0000038E 206E FFFC movea.l A0, [A6 - 0x4]
00000392 BE50 cmp.w D7, [A0]
00000394 6E58 bgt +0x5A /* 000003EE */
00000396 6002 bra +0x4 /* 0000039A */
label00000398:
00000398 584C addq.w A4, 4
label0000039A:
0000039A BE54 cmp.w D7, [A4]
0000039C 6EFA bgt -0x4 /* 00000398 */
0000039E BE54 cmp.w D7, [A4]
000003A0 6C06 bge +0x8 /* 000003A8 */
000003A2 7000 moveq.l D0, 0x00
000003A4 6000 0094 bra +0x96 /* 0000043A */
label000003A8:
000003A8 302C 0002 move.w D0, [A4 + 0x2]
000003AC 48C0 ext.l D0
000003AE 206B 0002 movea.l A0, [A3 + 0x2]
000003B2 2140 002E move.l [A0 + 0x2E], D0
000003B6 2F0B move.l -[A7], A3
000003B8 48C7 ext.l D7
000003BA 2F07 move.l -[A7], D7
000003BC 2F2E 000C move.l -[A7], [A6 + 0xC]
000003C0 2F2E 0008 move.l -[A7], [A6 + 0x8]
000003C4 4EBA FED0 jsr [PC - 0x130 /* 00000296 */]
000003C8 4A00 tst.b D0
000003CA 4FEF 0010 lea.l A7, [A7 + 0x10]
000003CE 6604 bne +0x6 /* 000003D4 */
000003D0 7000 moveq.l D0, 0x00
000003D2 6066 bra +0x68 /* 0000043A */
label000003D4:
000003D4 7000 moveq.l D0, 0x00
000003D6 2F00 move.l -[A7], D0
000003D8 486D F9A2 pea.l [A5 - 0x65E]
000003DC 2F2E 000C move.l -[A7], [A6 + 0xC]
000003E0 2F2E 0008 move.l -[A7], [A6 + 0x8]
000003E4 4EBA FC3E jsr [PC - 0x3C2 /* 00000024 */]
000003E8 4FEF 0010 lea.l A7, [A7 + 0x10]
000003EC 604C bra +0x4E /* 0000043A */
label000003EE:
000003EE 4A46 tst.w D6
000003F0 6E04 bgt +0x6 /* 000003F6 */
000003F2 7000 moveq.l D0, 0x00
000003F4 6044 bra +0x46 /* 0000043A */
label000003F6:
000003F6 2F0B move.l -[A7], A3
000003F8 48C7 ext.l D7
000003FA 2F07 move.l -[A7], D7
000003FC 2F2E 000C move.l -[A7], [A6 + 0xC]
00000400 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000404 4EBA FE90 jsr [PC - 0x170 /* 00000296 */]
00000408 4A00 tst.b D0
0000040A 4FEF 0010 lea.l A7, [A7 + 0x10]
0000040E 6604 bne +0x6 /* 00000414 */
00000410 7000 moveq.l D0, 0x00
00000412 6026 bra +0x28 /* 0000043A */
label00000414:
00000414 49ED F9A2 lea.l A4, [A5 - 0x65E]
00000418 0C46 0100 cmpi.w D6, 0x100
0000041C 6C04 bge +0x6 /* 00000422 */
0000041E 3006 move.w D0, D6
00000420 6004 bra +0x6 /* 00000426 */
label00000422:
00000422 303C 0100 move.w D0, 0x100
label00000426:
00000426 48C0 ext.l D0
00000428 E580 asl D0, 2
0000042A D08C add.l D0, A4
0000042C 5980 subq.l D0, 4
0000042E 2D40 FFFC move.l [A6 - 0x4], D0
00000432 0446 0100 subi.w D6, 0x100
00000436 6000 FF56 bra -0xA8 /* 0000038E */
label0000043A:
0000043A 4CEE 18C0 FFEC movem.l A4,A3,D7,D6, [A6 - 0x14]
00000440 4E5E unlink A6
00000442 4E75 rts
fn00000444:
00000444 4E56 FFF8 link A6, -0x0008
00000448 48E7 1118 movem.l -[A7], D3,D7,A3,A4
0000044C 2D6D F56C FFFC move.l [A6 - 0x4], [A5 - 0xA94]
00000452 6706 beq +0x8 /* 0000045A */
00000454 4AAE 0008 tst.l [A6 + 0x8]
00000458 6606 bne +0x8 /* 00000460 */
label0000045A:
0000045A 7000 moveq.l D0, 0x00
0000045C 6000 013C bra +0x13E /* 0000059A */
label00000460:
00000460 4A2E 000F tst.b [A6 + 0xF]
00000464 6700 0128 beq +0x12A /* 0000058E */
00000468 6000 0092 bra +0x94 /* 000004FC */
label0000046C:
0000046C 206E FFFC movea.l A0, [A6 - 0x4]
00000470 2850 movea.l A4, [A0]
00000472 266E 0008 movea.l A3, [A6 + 0x8]
00000476 7E00 moveq.l D7, 0x00
00000478 1E1C move.b D7, [A4]+
0000047A 4A87 tst.l D7
0000047C 600C bra +0xE /* 0000048A */
label0000047E:
0000047E 4A13 tst.b [A3]
00000480 6768 beq +0x6A /* 000004EA */
00000482 2007 move.l D0, D7
00000484 5387 subq.l D7, 1
00000486 524C addq.w A4, 1
00000488 524B addq.w A3, 1
label0000048A:
0000048A 4A87 tst.l D7
0000048C 675C beq +0x5E /* 000004EA */
0000048E 7600 moveq.l D3, 0x00
00000490 7000 moveq.l D0, 0x00
00000492 1014 move.b D0, [A4]
00000494 0C00 0061 cmpi.b D0, 0x61 /* 'a' */
00000498 650C bcs +0xE /* 000004A6 */
0000049A 7000 moveq.l D0, 0x00
0000049C 1014 move.b D0, [A4]
0000049E 0C00 007A cmpi.b D0, 0x7A /* 'z' */
000004A2 6202 bhi +0x4 /* 000004A6 */
000004A4 7601 moveq.l D3, 0x01
label000004A6:
000004A6 4A03 tst.b D3
000004A8 670A beq +0xC /* 000004B4 */
000004AA 7000 moveq.l D0, 0x00
000004AC 1014 move.b D0, [A4]
000004AE 907C 0020 sub.w D0, 0x20 /* ' ' */
000004B2 6006 bra +0x8 /* 000004BA */
label000004B4:
000004B4 7000 moveq.l D0, 0x00
000004B6 1014 move.b D0, [A4]
000004B8 4A80 tst.l D0
label000004BA:
000004BA 7600 moveq.l D3, 0x00
000004BC 7200 moveq.l D1, 0x00
000004BE 1213 move.b D1, [A3]
000004C0 0C01 0061 cmpi.b D1, 0x61 /* 'a' */
000004C4 650C bcs +0xE /* 000004D2 */
000004C6 7200 moveq.l D1, 0x00
000004C8 1213 move.b D1, [A3]
000004CA 0C01 007A cmpi.b D1, 0x7A /* 'z' */
000004CE 6202 bhi +0x4 /* 000004D2 */
000004D0 7601 moveq.l D3, 0x01
label000004D2:
000004D2 4A03 tst.b D3
000004D4 670A beq +0xC /* 000004E0 */
000004D6 7200 moveq.l D1, 0x00
000004D8 1213 move.b D1, [A3]
000004DA 927C 0020 sub.w D1, 0x20 /* ' ' */
000004DE 6006 bra +0x8 /* 000004E6 */
label000004E0:
000004E0 7200 moveq.l D1, 0x00
000004E2 1213 move.b D1, [A3]
000004E4 4A81 tst.l D1
label000004E6:
000004E6 B240 cmp.w D1, D0
000004E8 6794 beq -0x6A /* 0000047E */
label000004EA:
000004EA 4A87 tst.l D7
000004EC 6606 bne +0x8 /* 000004F4 */
000004EE 200C move.l D0, A4
000004F0 6000 00A8 bra +0xAA /* 0000059A */
label000004F4:
000004F4 202E FFFC move.l D0, [A6 - 0x4]
000004F8 58AE FFFC addq.l [A6 - 0x4], 4
label000004FC:
000004FC 206E FFFC movea.l A0, [A6 - 0x4]
00000500 4A90 tst.l [A0]
00000502 6600 FF68 bne -0x96 /* 0000046C */
00000506 6000 0090 bra +0x92 /* 00000598 */
label0000050A:
0000050A 206E FFFC movea.l A0, [A6 - 0x4]
0000050E 2850 movea.l A4, [A0]
00000510 266E 0008 movea.l A3, [A6 + 0x8]
00000514 6008 bra +0xA /* 0000051E */
label00000516:
00000516 4A14 tst.b [A4]
00000518 6760 beq +0x62 /* 0000057A */
0000051A 524C addq.w A4, 1
0000051C 524B addq.w A3, 1
label0000051E:
0000051E 7600 moveq.l D3, 0x00
00000520 7000 moveq.l D0, 0x00
00000522 1014 move.b D0, [A4]
00000524 0C00 0061 cmpi.b D0, 0x61 /* 'a' */
00000528 650C bcs +0xE /* 00000536 */
0000052A 7000 moveq.l D0, 0x00
0000052C 1014 move.b D0, [A4]
0000052E 0C00 007A cmpi.b D0, 0x7A /* 'z' */
00000532 6202 bhi +0x4 /* 00000536 */
00000534 7601 moveq.l D3, 0x01
label00000536:
00000536 4A03 tst.b D3
00000538 670A beq +0xC /* 00000544 */
0000053A 7000 moveq.l D0, 0x00
0000053C 1014 move.b D0, [A4]
0000053E 907C 0020 sub.w D0, 0x20 /* ' ' */
00000542 6006 bra +0x8 /* 0000054A */
label00000544:
00000544 7000 moveq.l D0, 0x00
00000546 1014 move.b D0, [A4]
00000548 4A80 tst.l D0
label0000054A:
0000054A 7600 moveq.l D3, 0x00
0000054C 7200 moveq.l D1, 0x00
0000054E 1213 move.b D1, [A3]
00000550 0C01 0061 cmpi.b D1, 0x61 /* 'a' */
00000554 650C bcs +0xE /* 00000562 */
00000556 7200 moveq.l D1, 0x00
00000558 1213 move.b D1, [A3]
0000055A 0C01 007A cmpi.b D1, 0x7A /* 'z' */
0000055E 6202 bhi +0x4 /* 00000562 */
00000560 7601 moveq.l D3, 0x01
label00000562:
00000562 4A03 tst.b D3
00000564 670A beq +0xC /* 00000570 */
00000566 7200 moveq.l D1, 0x00
00000568 1213 move.b D1, [A3]
0000056A 927C 0020 sub.w D1, 0x20 /* ' ' */
0000056E 6006 bra +0x8 /* 00000576 */
label00000570:
00000570 7200 moveq.l D1, 0x00
00000572 1213 move.b D1, [A3]
00000574 4A81 tst.l D1
label00000576:
00000576 B240 cmp.w D1, D0
00000578 679C beq -0x62 /* 00000516 */
label0000057A:
0000057A 1014 move.b D0, [A4]
0000057C B013 cmp.b D0, [A3]
0000057E 6606 bne +0x8 /* 00000586 */
00000580 524C addq.w A4, 1
00000582 200C move.l D0, A4
00000584 6014 bra +0x16 /* 0000059A */
label00000586:
00000586 202E FFFC move.l D0, [A6 - 0x4]
0000058A 58AE FFFC addq.l [A6 - 0x4], 4
label0000058E:
0000058E 206E FFFC movea.l A0, [A6 - 0x4]
00000592 4A90 tst.l [A0]
00000594 6600 FF74 bne -0x8A /* 0000050A */
label00000598:
00000598 7000 moveq.l D0, 0x00
label0000059A:
0000059A 4CEE 1888 FFE8 movem.l A4,A3,D7,D3, [A6 - 0x18]
000005A0 4E5E unlink A6
000005A2 4E75 rts
fn000005A4:
000005A4 4E56 FFFA link A6, -0x0006
000005A8 48E7 0F18 movem.l -[A7], D4,D5,D6,D7,A3,A4
000005AC 3E2E 000E move.w D7, [A6 + 0xE]
000005B0 4245 clr.w D5
000005B2 3D7C 00FE FFFA move.w [A6 - 0x6], 0xFE
000005B8 206E 0010 movea.l A0, [A6 + 0x10]
000005BC 7000 moveq.l D0, 0x00
000005BE 3010 move.w D0, [A0]
000005C0 7C01 moveq.l D6, 0x01
000005C2 CC40 and.w D6, D0
000005C4 7000 moveq.l D0, 0x00
000005C6 3010 move.w D0, [A0]
000005C8 7210 moveq.l D1, 0x10
000005CA C240 and.w D1, D0
000005CC 7000 moveq.l D0, 0x00
000005CE 3001 move.w D0, D1
000005D0 4A80 tst.l D0
000005D2 6612 bne +0x14 /* 000005E6 */
000005D4 7001 moveq.l D0, 0x01
000005D6 2F00 move.l -[A7], D0
000005D8 7200 moveq.l D1, 0x00
000005DA 2F01 move.l -[A7], D1
000005DC 2F01 move.l -[A7], D1
000005DE 4EBA FB10 jsr [PC - 0x4F0 /* 000000F0 */]
000005E2 4FEF 000C lea.l A7, [A7 + 0xC]
label000005E6:
000005E6 2D6E 0008 FFFC move.l [A6 - 0x4], [A6 + 0x8]
000005EC 4A2D FDA2 tst.b [A5 - 0x25E]
000005F0 670E beq +0x10 /* 00000600 */
000005F2 202E FFFC move.l D0, [A6 - 0x4]
000005F6 52AE FFFC addq.l [A6 - 0x4], 1
000005FA 2040 movea.l A0, D0
000005FC 10BC 0001 move.b [A0], 0x1
label00000600:
00000600 206E FFFC movea.l A0, [A6 - 0x4]
00000604 4210 clr.b [A0]
00000606 206E 0010 movea.l A0, [A6 + 0x10]
0000060A 7000 moveq.l D0, 0x00
0000060C 3010 move.w D0, [A0]
0000060E 7204 moveq.l D1, 0x04
00000610 C240 and.w D1, D0
00000612 7000 moveq.l D0, 0x00
00000614 3001 move.w D0, D1
00000616 4A80 tst.l D0
00000618 6600 0154 bne +0x156 /* 0000076E */
0000061C 4A28 000E tst.b [A0 + 0xE]
00000620 57C0 seq D0
00000622 0240 0001 andi.w D0, 0x1
00000626 48C0 ext.l D0
00000628 1800 move.b D4, D0
0000062A 6742 beq +0x44 /* 0000066E */
0000062C 49E8 000E lea.l A4, [A0 + 0xE]
00000630 2F2D F71E move.l -[A7], [A5 - 0x8E2]
00000634 2F28 0006 move.l -[A7], [A0 + 0x6]
00000638 4EBA FE0A jsr [PC - 0x1F6 /* 00000444 */]
0000063C 2640 movea.l A3, D0
0000063E 200B move.l D0, A3
00000640 504F addq.w A7, 8
00000642 6706 beq +0x8 /* 0000064A */
label00000644:
00000644 524C addq.w A4, 1
00000646 189B move.b [A4], [A3]+
00000648 66FA bne -0x4 /* 00000644 */
label0000064A:
0000064A 206E 0010 movea.l A0, [A6 + 0x10]
0000064E 2668 000A movea.l A3, [A0 + 0xA]
label00000652:
00000652 18DB move.b [A4]+, [A3]+
00000654 66FC bne -0x2 /* 00000652 */
00000656 200C move.l D0, A4
00000658 206E 0010 movea.l A0, [A6 + 0x10]
0000065C 41E8 000E lea.l A0, [A0 + 0xE]
00000660 2208 move.l D1, A0
00000662 9041 sub.w D0, D1
00000664 5500 subq.b D0, 2
00000666 206E 0010 movea.l A0, [A6 + 0x10]
0000066A 1140 000E move.b [A0 + 0xE], D0
label0000066E:
0000066E 206E 0010 movea.l A0, [A6 + 0x10]
00000672 4A28 000E tst.b [A0 + 0xE]
00000676 6772 beq +0x74 /* 000006EA */
00000678 2F28 0002 move.l -[A7], [A0 + 0x2]
0000067C 4EBA F982 jsr [PC - 0x67E /* 00000000 */]
00000680 3A00 move.w D5, D0
00000682 584F addq.w A7, 4
00000684 660A bne +0xC /* 00000690 */
00000686 206E 0010 movea.l A0, [A6 + 0x10]
0000068A 0050 0002 ori.w [A0], 0x2
0000068E 605A bra +0x5C /* 000006EA */
label00000690:
00000690 4A04 tst.b D4
00000692 6756 beq +0x58 /* 000006EA */
00000694 4A06 tst.b D6
00000696 6752 beq +0x54 /* 000006EA */
00000698 206E 0010 movea.l A0, [A6 + 0x10]
0000069C 49E8 000E lea.l A4, [A0 + 0xE]
000006A0 2668 000A movea.l A3, [A0 + 0xA]
label000006A4:
000006A4 524C addq.w A4, 1
000006A6 189B move.b [A4], [A3]+
000006A8 66FA bne -0x4 /* 000006A4 */
000006AA 200C move.l D0, A4
000006AC 206E 0010 movea.l A0, [A6 + 0x10]
000006B0 41E8 000E lea.l A0, [A0 + 0xE]
000006B4 2208 move.l D1, A0
000006B6 9041 sub.w D0, D1
000006B8 5300 subq.b D0, 1
000006BA 206E 0010 movea.l A0, [A6 + 0x10]
000006BE 1140 000E move.b [A0 + 0xE], D0
000006C2 206E 0010 movea.l A0, [A6 + 0x10]
000006C6 2068 0002 movea.l A0, [A0 + 0x2]
000006CA 3178 0210 0016 move.w [A0 + 0x16], [0x00000210 /* BootDrive */]
000006D0 206E 0010 movea.l A0, [A6 + 0x10]
000006D4 2F28 0002 move.l -[A7], [A0 + 0x2]
000006D8 4EBA F926 jsr [PC - 0x6DA /* 00000000 */]
000006DC 3A00 move.w D5, D0
000006DE 584F addq.w A7, 4
000006E0 6608 bne +0xA /* 000006EA */
000006E2 206E 0010 movea.l A0, [A6 + 0x10]
000006E6 0050 0002 ori.w [A0], 0x2
label000006EA:
000006EA 206E 0010 movea.l A0, [A6 + 0x10]
000006EE 7000 moveq.l D0, 0x00
000006F0 3010 move.w D0, [A0]
000006F2 7202 moveq.l D1, 0x02
000006F4 C240 and.w D1, D0
000006F6 7000 moveq.l D0, 0x00
000006F8 3001 move.w D0, D1
000006FA 4A80 tst.l D0
000006FC 6668 bne +0x6A /* 00000766 */
000006FE 4A06 tst.b D6
00000700 6764 beq +0x66 /* 00000766 */
00000702 BE45 cmp.w D7, D5
00000704 6660 bne +0x62 /* 00000766 */
00000706 0C47 FFD6 cmpi.w D7, 0xFFD6
0000070A 665A bne +0x5C /* 00000766 */
0000070C 7000 moveq.l D0, 0x00
0000070E 2F00 move.l -[A7], D0
00000710 486D F698 pea.l [A5 - 0x968]
00000714 2F2E FFFC move.l -[A7], [A6 - 0x4]
00000718 486E FFFA pea.l [A6 - 0x6]
0000071C 4EBA F906 jsr [PC - 0x6FA /* 00000024 */]
00000720 206E 0010 movea.l A0, [A6 + 0x10]
00000724 7000 moveq.l D0, 0x00
00000726 3010 move.w D0, [A0]
00000728 7208 moveq.l D1, 0x08
0000072A C240 and.w D1, D0
0000072C 4FEF 0010 lea.l A7, [A7 + 0x10]
00000730 6700 00E0 beq +0xE2 /* 00000812 */
00000734 7000 moveq.l D0, 0x00
00000736 2F00 move.l -[A7], D0
00000738 486D F6AC pea.l [A5 - 0x954]
0000073C 7000 moveq.l D0, 0x00
0000073E 1006 move.b D0, D6
00000740 2F00 move.l -[A7], D0
00000742 48C7 ext.l D7
00000744 2F07 move.l -[A7], D7
00000746 4EBA FAC0 jsr [PC - 0x540 /* 00000208 */]
0000074A 508F addq.l A7, 8
0000074C 2F00 move.l -[A7], D0
0000074E 486D F6AE pea.l [A5 - 0x952]
00000752 2F2E FFFC move.l -[A7], [A6 - 0x4]
00000756 486E FFFA pea.l [A6 - 0x6]
0000075A 4EBA F8C8 jsr [PC - 0x738 /* 00000024 */]
0000075E 4FEF 0018 lea.l A7, [A7 + 0x18]
00000762 6000 00AE bra +0xB0 /* 00000812 */
label00000766:
00000766 206E 0010 movea.l A0, [A6 + 0x10]
0000076A 0050 0004 ori.w [A0], 0x4
label0000076E:
0000076E 206E 0010 movea.l A0, [A6 + 0x10]
00000772 7000 moveq.l D0, 0x00
00000774 3010 move.w D0, [A0]
00000776 7202 moveq.l D1, 0x02
00000778 C240 and.w D1, D0
0000077A 6778 beq +0x7A /* 000007F4 */
0000077C 2F08 move.l -[A7], A0
0000077E 48C7 ext.l D7
00000780 2F07 move.l -[A7], D7
00000782 2F2E FFFC move.l -[A7], [A6 - 0x4]
00000786 486E FFFA pea.l [A6 - 0x6]
0000078A 4EBA FB9A jsr [PC - 0x466 /* 00000326 */]
0000078E 4A80 tst.l D0
00000790 4FEF 0010 lea.l A7, [A7 + 0x10]
00000794 673E beq +0x40 /* 000007D4 */
00000796 206E 0010 movea.l A0, [A6 + 0x10]
0000079A 7000 moveq.l D0, 0x00
0000079C 3010 move.w D0, [A0]
0000079E 7208 moveq.l D1, 0x08
000007A0 C240 and.w D1, D0
000007A2 676E beq +0x70 /* 00000812 */
000007A4 7000 moveq.l D0, 0x00
000007A6 2F00 move.l -[A7], D0
000007A8 486D F6B2 pea.l [A5 - 0x94E]
000007AC 7000 moveq.l D0, 0x00
000007AE 1006 move.b D0, D6
000007B0 2F00 move.l -[A7], D0
000007B2 48C7 ext.l D7
000007B4 2F07 move.l -[A7], D7
000007B6 4EBA FA50 jsr [PC - 0x5B0 /* 00000208 */]
000007BA 508F addq.l A7, 8
000007BC 2F00 move.l -[A7], D0
000007BE 486D F6B4 pea.l [A5 - 0x94C]
000007C2 2F2E FFFC move.l -[A7], [A6 - 0x4]
000007C6 486E FFFA pea.l [A6 - 0x6]
000007CA 4EBA F858 jsr [PC - 0x7A8 /* 00000024 */]
000007CE 4FEF 0018 lea.l A7, [A7 + 0x18]
000007D2 603E bra +0x40 /* 00000812 */
label000007D4:
000007D4 7000 moveq.l D0, 0x00
000007D6 1006 move.b D0, D6
000007D8 2F00 move.l -[A7], D0
000007DA 486D F6B8 pea.l [A5 - 0x948]
000007DE 48C7 ext.l D7
000007E0 2F07 move.l -[A7], D7
000007E2 2F2E FFFC move.l -[A7], [A6 - 0x4]
000007E6 486E FFFA pea.l [A6 - 0x6]
000007EA 4EBA FA72 jsr [PC - 0x58E /* 0000025E */]
000007EE 4FEF 0014 lea.l A7, [A7 + 0x14]
000007F2 601E bra +0x20 /* 00000812 */
label000007F4:
000007F4 7000 moveq.l D0, 0x00
000007F6 1006 move.b D0, D6
000007F8 2F00 move.l -[A7], D0
000007FA 486D F6DC pea.l [A5 - 0x924]
000007FE 48C7 ext.l D7
00000800 2F07 move.l -[A7], D7
00000802 2F2E FFFC move.l -[A7], [A6 - 0x4]
00000806 486E FFFA pea.l [A6 - 0x6]
0000080A 4EBA FA52 jsr [PC - 0x5AE /* 0000025E */]
0000080E 4FEF 0014 lea.l A7, [A7 + 0x14]
label00000812:
00000812 4A2D FDA2 tst.b [A5 - 0x25E]
00000816 670E beq +0x10 /* 00000826 */
00000818 303C 00FE move.w D0, 0xFE
0000081C 902E FFFB sub.b D0, [A6 - 0x5]
00000820 206E 0008 movea.l A0, [A6 + 0x8]
00000824 1080 move.b [A0], D0
label00000826:
00000826 202E 0008 move.l D0, [A6 + 0x8]
0000082A 4CEE 18F0 FFE2 movem.l A4,A3,D7,D6,D5,D4, [A6 - 0x1E]
00000830 4E5E unlink A6
00000832 4E75 rts
export_477:
00000834 4E56 0000 link A6, 0
00000838 1B7C 0001 FDA2 move.b [A5 - 0x25E], 0x1
0000083E 486D F830 pea.l [A5 - 0x7D0]
00000842 302E 000C move.w D0, [A6 + 0xC]
00000846 48C0 ext.l D0
00000848 2F00 move.l -[A7], D0
0000084A 2F2E 0008 move.l -[A7], [A6 + 0x8]
0000084E 4EBA FD54 jsr [PC - 0x2AC /* 000005A4 */]
00000852 4E5E unlink A6
00000854 205F movea.l A0, [A7]+
00000856 5C4F addq.w A7, 6
00000858 4ED0 jmp [A0]